home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / actio / Wreckage_src.lha / Source / Assembly / Backup / asm_3d_A.asm next >
Assembly Source File  |  1998-06-30  |  482b  |  34 lines
  1.       CLR.w d0
  2. _asm3d_1:
  3.     MOVE.b    (a0)    ,d0    ;app
  4.     MOVE.l     (a1)+    ,d1    ;x
  5.     MOVE.l     (a2)+    ,d2         ;z
  6.     MOVE.l     (a3)+    ,d3         ;y
  7.     
  8.     TST.b    d0
  9.     BEQ    _asm3d_2
  10.     
  11. ;    ASR.l #8,d3    
  12. ;    ASR.l #8,d3
  13.     TST.l d3
  14.     BLE _asm3d_2
  15.     
  16.     DIVS.l    d3    ,d1
  17. ;    CLR.w d1
  18.     SWAP d1
  19.     DIVS.l    d3    ,d2
  20. ;    CLR.w d2
  21.     SWAP d2
  22.     BRA    _asm3d_2a
  23.     
  24.         
  25. _asm3d_2:
  26.     CLR.w d0
  27. _asm3d_2a:
  28.     MOVE.w     d1    ,(a4)+    ;sx
  29.      MOVE.w     d2    ,(a4)+        ;sy
  30.       MOVE.w     d0    ,(a4)+        ;app
  31.       SUBQ.l     #1    ,d7           ;points-1
  32.       BGT     _asm3d_1           ;until points<=0
  33.  
  34.